package HTML::Elemental::TABLE;

use Moose;
extends 'HTML::Elemental';

sub simple_add {
    
    my($self, $content)=@_;

    my $child = HTML::Element->new_from_lol( [ li => $content ] ) ;
    warn $child->as_HTML;
    warn $self->elem->as_HTML;
    $self->elem->push_content( $child ) ;

}

sub simple_add_html {
    
    my($self, $content)=@_;

    my $html_content = HTML::TreeBuilder->new_from_content($content)->guts;

    $self->simple_add($html_content);

}



=head1 NAME

HTML::Elemental::TABLE - HTML select pulldown

=head1 SYNOPSIS

my $T = HTML::Elemental::TABLE->new(look_down => 'fruit_choice');

my @main_row = ( { k => 'v' } .... )

for my $main_row (@main_row) {
    my $tr = $T->clone(look_down => [ seam_class => 'main_row' ]);
    $tr->smap(kmap => $main_row);
}

1;
